﻿Public Enum Perfil As Integer
    Cajero = 0
    Administrador = 1
End Enum


Public Enum Estado As Integer
    Habilitado = 0
    Inhabilitado = 1
End Enum


Public Class Usuarios

    'Variables de la tabla Usuarios'
    Private mId As Integer
    Private mNombreCompleto, mIdentificacion As String
    Private mNombreUsuario, mContraseña As String
    Private mPerfil As Perfil
    Private mEstado As Estado
    Private mFechaCreacion As Date

    Property Id As Integer
        Get
            Return mId
        End Get
        Set(ByVal value As Integer)
            mId = value
        End Set
    End Property

    Public Property NombreCompleto As String
        Get
            Return mNombreCompleto
        End Get
        Set(ByVal value As String)
            mNombreCompleto = value
        End Set
    End Property

    Public Property Identificacion As String
        Get
            Return mIdentificacion
        End Get
        Set(ByVal value As String)
            mIdentificacion = value
        End Set
    End Property

    Public Property NombreUsuario As String
        Get
            Return mNombreUsuario
        End Get
        Set(ByVal value As String)
            mNombreUsuario = value
        End Set
    End Property

    Public Property Contraseña As String
        Get
            Return mContraseña
        End Get
        Set(ByVal value As String)
            mContraseña = value
        End Set
    End Property

    Public Property Perfil As Perfil
        Get
            Return mPerfil
        End Get
        Set(ByVal value As Perfil)
            mPerfil = value
        End Set
    End Property

    Public Property Estado As Estado
        Get
            Return mEstado
        End Get
        Set(ByVal value As Estado)
            mEstado = value
        End Set
    End Property

    Public Property FechaCreacion As Date
        Get
            Return mFechaCreacion
        End Get
        Set(ByVal value As Date)
            mFechaCreacion = value
        End Set
    End Property

    Public Sub New(ByVal mNombreUsuario As String, ByVal mContraseña As String)

        NombreUsuario = mNombreUsuario
        Contraseña = mContraseña

    End Sub

    Public Sub New()
    End Sub




End Class
